home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
util
/
edit
/
ced_programs.lha
/
CED-Programs
/
RightShift.ced
< prev
Wrap
Text File
|
1993-02-14
|
763b
|
45 lines
/*
* RightShift.ced
*
* Shift the current block to the right, according to tabsize setting.
*
* Author: Stefan Winterstein (winter@cs.uni-sb.de)
* Status: Public Domain
*
*/
LF = '0A'X
TAB = '09'X
options results /* Allow CygnusEd to pass status variables */
address 'rexx_ced' /* Tell ARexx to talk to CygnusEd */
status 47 /* get current line number */
start = result
status 69 /* get start of block */
end = result
if end = -1 then do /* No block marked */
end = start+1 /* then work on current line */
end
if start > end then do /* swap start with end */
t = start
start = end
end = t
end
'jump to line' start+1 /* goto start of block */
do line = start while line < end
'beg of line'
'text' TAB
'down'
end
'beg of line'
exit